home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Network Login Win.xpl < prev    next >
Text File  |  2001-04-13  |  2KB  |  78 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH 1"="Startup/Shutdown\Startup\Windows NT/2K/XP\31) Inside Login Window"
  5. "NAME"="Login Window Options"
  6. "VERSION"="1.52"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="010101"
  9. "TEXT 1"="Show "Shutdown without Power Off" button"
  10. "TEXT 2"="Activate NUM-LOCK while waiting for login"
  11. "TEXT 3"="Always activate "connect using RAS""
  12. "DESCRIPTION 1"="If the "Shutdown without Power Off" button is enabled, it is possible to shutdown the computer without login from the Welcome window."
  13. "DESCRIPTION 2"="This setting is normally enabled on Windows NT Workstation and disabled on Windows NT Server."
  14. "DESCRIPTION 3"="If the second is activated, NUM-LOCK is activate while Windows NT waits for a login ("Press Ctrl-Alt-Del to login")."
  15. "DESCRIPTION 4"="Activate "Always activate connect using RAS" to have the checkbox automatically selected in your login window."
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"="Thanks to CptSiskoX for his help!"
  20. "COMMENT 2"="Thanks to alexmorris@uk.ibm.com and Alexander Khoroshev [aelric@atnet.ru] for the NUM-LOCK fix."
  21.  
  22. sP="HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\"
  23. v1="ShutdownWithoutLogon"
  24. 'v2="---NOT USED YET * SEE BELOW---"
  25. 'v3="DontDisplayLastUserName"
  26. v4="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\RasForce"
  27.  
  28. Sub Plugin_Initialize 
  29.  If RegPathExists(sp) then
  30.   
  31.     i=RegReadValue(sp & v1)
  32.     if i=1 then SetUIElement 1,true
  33.  
  34.     i=RegReadValue("HKUS\.Default\Control Panel\Keyboard\InitialKeyboardIndicators")
  35.     if i="2" then SetUIElement 2,true
  36.  
  37.     i=RegReadValue(v4)
  38.     if i=1 then SetUIElement 3,true
  39.  
  40.  else
  41.   Disable
  42.  end if
  43. End Sub
  44.  
  45. Sub Plugin_CheckData(ElementIndex)
  46. End Sub
  47.  
  48. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  49.  b=GetUIElement(1)
  50.  if b=true then
  51.   Call RegWriteValue(sp & v1,"1",1)
  52.  else
  53.   Call RegWriteValue(sp & v1,"0",1)
  54.  end if
  55.  
  56.  If GetUiElement(2)=true then
  57.     Call RegWriteValue("HKUS\.Default\Control Panel\Keyboard\InitialKeyboardIndicators",2,1)
  58.  else
  59.     Call RegWriteValue("HKUS\.Default\Control Panel\Keyboard\InitialKeyboardIndicators",0,1)
  60.  end if
  61.  
  62.  b=GetUIElement(3)
  63.  if b=true then
  64.     Call RegWriteValue(v4,"1",1)
  65.  else
  66.     Call RegWriteValue(v4,"0",1)
  67.  end if
  68.  
  69.  
  70.  Call Logoff
  71. End Sub
  72.  
  73. Sub Plugin_Terminate 
  74. End Sub
  75.  
  76.  
  77.  
  78.